﻿Public Class frmBaoCaoThang

    Private Sub cbxBaoCaoThang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbxBaoCaoThang.SelectedIndexChanged
        Dim luachon As Integer = cbxBaoCaoThang.SelectedIndex
        If luachon = 0 Then
            Dim hienthi As frmBaoCaoDSChuNha = New frmBaoCaoDSChuNha()
            hienthi.ShowDialog()
        ElseIf luachon = 1 Then
            Dim hienthi As frmBaoCaoDSKhachThue = New frmBaoCaoDSKhachThue()
            hienthi.ShowDialog()
        ElseIf luachon = 2 Then
            Dim hienthi As frmBaoCaoDSBatDongSan = New frmBaoCaoDSBatDongSan()
            hienthi.ShowDialog()
        End If

    End Sub


End Class